home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995 August: Tool Chest / Dev.CD Aug 95 TC / Dev.CD Aug 95 TC.toast / Tool Chest / Interfaces / UniversalInterfaces 2.1B1 / AIncludes / ASRegistry.a < prev    next >
Encoding:
Text File  |  1995-04-18  |  10.8 KB  |  285 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        ASRegistry.a
  3. ;
  4. ;    Contains:    AppleScript Registry constants.
  5. ;
  6. ;    Version:    Technology:    AppleScript 1.1
  7. ;                Package:    Universal Interfaces 2.1ß1 in “MPW Prerelease” on ETO #17
  8. ;
  9. ;    Copyright:    © 1984-1995 by Apple Computer, Inc.
  10. ;                All rights reserved.
  11. ;
  12. ;    Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13. ;                stack.  Include the file and version information (from above)
  14. ;                in the problem description and send to:
  15. ;                    Internet:    apple.bugs@applelink.apple.com
  16. ;                    AppleLink:    APPLE.BUGS
  17. ;
  18. ;
  19.  
  20.     IF &TYPE('__ASREGISTRY__') = 'UNDEFINED' THEN
  21. __ASREGISTRY__ SET 1
  22.  
  23.  
  24.     IF &TYPE('__APPLEEVENTS__') = 'UNDEFINED' THEN
  25.     include 'AppleEvents.a'
  26.     ENDIF
  27. ;        include 'Errors.a'                                            ;
  28. ;            include 'ConditionalMacros.a'                            ;
  29. ;        include 'Types.a'                                            ;
  30. ;        include 'Memory.a'                                            ;
  31. ;            include 'MixedMode.a'                                    ;
  32. ;        include 'OSUtils.a'                                        ;
  33. ;        include 'Events.a'                                            ;
  34. ;            include 'Quickdraw.a'                                    ;
  35. ;                include 'QuickdrawText.a'                            ;
  36. ;        include 'EPPC.a'                                            ;
  37. ;            include 'AppleTalk.a'                                    ;
  38. ;            include 'Files.a'                                        ;
  39. ;            include 'PPCToolbox.a'                                    ;
  40. ;            include 'Processes.a'                                    ;
  41. ;        include 'Notification.a'                                    ;
  42.  
  43.     IF &TYPE('__AEREGISTRY__') = 'UNDEFINED' THEN
  44.     include 'AERegistry.a'
  45.     ENDIF
  46.  
  47.     IF &TYPE('__AEOBJECTS__') = 'UNDEFINED' THEN
  48.     include 'AEObjects.a'
  49.     ENDIF
  50.  
  51. keyAETarget                        EQU        'targ'                ;  0x74617267  
  52. keySubjectAttr                    EQU        'subj'                ;  0x7375626a  
  53. ; Magic 'returning' parameter: 
  54. keyASReturning                    EQU        'Krtn'                ;  0x4b72746e  
  55. ; AppleScript Specific Codes: 
  56. kASAppleScriptSuite                EQU        'ascr'                ;  0x61736372  
  57. kASTypeNamesSuite                EQU        'tpnm'                ;  0x74706e6d  
  58. ; dynamic terminologies 
  59. typeAETE                        EQU        'aete'                ;  0x61657465  
  60. typeAEUT                        EQU        'aeut'                ;  0x61657574  
  61. kGetAETE                        EQU        'gdte'                ;  0x67647465  
  62. kGetAEUT                        EQU        'gdut'                ;  0x67647574  
  63. kUpdateAEUT                        EQU        'udut'                ;  0x75647574  
  64. kUpdateAETE                        EQU        'udte'                ;  0x75647465  
  65. kCleanUpAEUT                    EQU        'cdut'                ;  0x63647574  
  66. kASComment                        EQU        'cmnt'                ;  0x636d6e74  
  67. kASLaunchEvent                    EQU        'noop'                ;  0x6e6f6f70  
  68. keyScszResource                    EQU        'scsz'                ;  0x7363737A  
  69. typeScszResource                EQU        'scsz'                ;  0x7363737A  
  70. ; subroutine calls 
  71. kASSubroutineEvent                EQU        'psbr'                ;  0x70736272  
  72. keyASSubroutineName                EQU        'snam'
  73.  
  74. ; Operator Events: 
  75. ; Binary: 
  76. kASAdd                            EQU        '+   '                ;  0x2b202020  
  77. kASSubtract                        EQU        '-   '                ;  0x2d202020  
  78. kASMultiply                        EQU        '*   '                ;  0x2a202020  
  79. kASDivide                        EQU        '/   '                ;  0x2f202020  
  80. kASQuotient                        EQU        'div '                ;  0x64697620  
  81. kASRemainder                    EQU        'mod '                ;  0x6d6f6420  
  82. kASPower                        EQU        '^   '                ;  0x5e202020  
  83. kASEqual                        EQU        kAEEquals
  84. kASNotEqual                        EQU        '≠   '                ;  0xad202020  
  85. kASGreaterThan                    EQU        kAEGreaterThan
  86. kASGreaterThanOrEqual            EQU        kAEGreaterThanEquals
  87. kASLessThan                        EQU        kAELessThan
  88. kASLessThanOrEqual                EQU        kAELessThanEquals
  89. kASComesBefore                    EQU        'cbfr'                ;  0x63626672  
  90. kASComesAfter                    EQU        'cafr'                ;  0x63616672  
  91. kASConcatenate                    EQU        'ccat'                ;  0x63636174  
  92. kASStartsWith                    EQU        kAEBeginsWith
  93. kASEndsWith                        EQU        kAEEndsWith
  94. kASContains                        EQU        kAEContains
  95.  
  96. kASAnd                            EQU        kAEAND
  97. kASOr                            EQU        kAEOR
  98. ; Unary: 
  99. kASNot                            EQU        kAENOT
  100. kASNegate                        EQU        'neg '                ;  0x6e656720  
  101. keyASArg                        EQU        'arg '
  102.  
  103. ; event code for the 'error' statement 
  104. kASErrorEventCode                EQU        'err '                ;  0x65727220  
  105. kOSAErrorArgs                    EQU        'erra'                ;  0x65727261  
  106. ; Properties: 
  107. pLength                            EQU        'leng'                ;  0x6c656e67  
  108. pReverse                        EQU        'rvse'                ;  0x72767365  
  109. pRest                            EQU        'rest'                ;  0x72657374  
  110. pInherits                        EQU        'c@#^'                ;  0x6340235e  
  111. ; User-Defined Record Fields: 
  112. keyASUserRecordFields            EQU        'usrf'                ;  0x75737266  
  113. typeUserRecordFields            EQU        typeAEList
  114.  
  115. ; Prepositions: 
  116. keyASPrepositionAt                EQU        'at  '                ;  0x61742020  
  117. keyASPrepositionIn                EQU        'in  '                ;  0x696e2020  
  118. keyASPrepositionFrom            EQU        'from'                ;  0x66726f6d  
  119. keyASPrepositionFor                EQU        'for '                ;  0x666f7220  
  120. keyASPrepositionTo                EQU        'to  '                ;  0x746f2020  
  121. keyASPrepositionThru            EQU        'thru'                ;  0x74687275  
  122. keyASPrepositionThrough            EQU        'thgh'                ;  0x74686768  
  123. keyASPrepositionBy                EQU        'by  '                ;  0x62792020  
  124. keyASPrepositionOn                EQU        'on  '                ;  0x6f6e2020  
  125. keyASPrepositionInto            EQU        'into'                ;  0x696e746f  
  126. keyASPrepositionOnto            EQU        'onto'                ;  0x6f6e746f  
  127. keyASPrepositionBetween            EQU        'btwn'                ;  0x6274776e  
  128. keyASPrepositionAgainst            EQU        'agst'                ;  0x61677374  
  129. keyASPrepositionOutOf            EQU        'outo'                ;  0x6f75746f  
  130. keyASPrepositionInsteadOf        EQU        'isto'                ;  0x6973746f  
  131. keyASPrepositionAsideFrom        EQU        'asdf'                ;  0x61736466  
  132. keyASPrepositionAround            EQU        'arnd'                ;  0x61726e64  
  133. keyASPrepositionBeside            EQU        'bsid'                ;  0x62736964  
  134. keyASPrepositionBeneath            EQU        'bnth'                ;  0x626e7468  
  135. keyASPrepositionUnder            EQU        'undr'
  136.  
  137. keyASPrepositionOver            EQU        'over'                ;  0x6f766572  
  138. keyASPrepositionAbove            EQU        'abve'                ;  0x61627665  
  139. keyASPrepositionBelow            EQU        'belw'                ;  0x62656c77  
  140. keyASPrepositionApartFrom        EQU        'aprt'                ;  0x61707274  
  141. keyASPrepositionGiven            EQU        'givn'                ;  0x6769766e  
  142. keyASPrepositionWith            EQU        'with'                ;  0x77697468  
  143. keyASPrepositionWithout            EQU        'wout'                ;  0x776f7574  
  144. keyASPrepositionAbout            EQU        'abou'                ;  0x61626f75  
  145. keyASPrepositionSince            EQU        'snce'                ;  0x736e6365  
  146. keyASPrepositionUntil            EQU        'till'
  147.  
  148. ; Terminology & Dialect things: 
  149. kDialectBundleResType            EQU        'Dbdl'                ;  0x4462646c  
  150. ; AppleScript Classes and Enums: 
  151. cConstant                        EQU        typeEnumerated
  152. cClassIdentifier                EQU        pClass
  153. cObjectBeingExamined            EQU        typeObjectBeingExamined
  154. cList                            EQU        typeAEList
  155. cSmallReal                        EQU        typeSMFloat
  156. cReal                            EQU        typeFloat
  157. cRecord                            EQU        typeAERecord
  158. cReference                        EQU        cObjectSpecifier
  159. cUndefined                        EQU        'undf'                ;  0x756e6466  
  160. cSymbol                            EQU        'symb'                ;  0x73796d62  
  161. cLinkedList                        EQU        'llst'                ;  0x6c6c7374  
  162. cVector                            EQU        'vect'                ;  0x76656374  
  163. cEventIdentifier                EQU        'evnt'                ;  0x65766e74  
  164. cKeyIdentifier                    EQU        'kyid'                ;  0x6b796964  
  165. cUserIdentifier                    EQU        'uid '                ;  0x75696420  
  166. cPreposition                    EQU        'prep'                ;  0x70726570  
  167. cKeyForm                        EQU        enumKeyForm
  168. cScript                            EQU        'scpt'                ;  0x73637074  
  169. cHandler                        EQU        'hand'                ;  0x68616e64  
  170. cProcedure                        EQU        'proc'
  171.  
  172. cClosure                        EQU        'clsr'                ;  0x636c7372  
  173. cRawData                        EQU        'rdat'                ;  0x72646174  
  174. cString                            EQU        typeChar
  175. cStringClass                    EQU        typeChar
  176. cNumber                            EQU        'nmbr'                ;  0x6e6d6272  
  177. cListOrRecord                    EQU        'lr  '                ;  0x6c722020  
  178. cListOrString                    EQU        'ls  '                ;  0x6c732020  
  179. cListRecordOrString                EQU        'lrs '                ;  0x6c727320  
  180. cNumberOrDateTime                EQU        'nd  '                ;  0x6e642020  
  181. cNumberDateTimeOrString            EQU        'nds '                ;  0x6e647320  
  182. cSeconds                        EQU        'scnd'                ;  0x73636e64  
  183. enumBooleanValues                EQU        'boov'                ;  0x626f6f76  
  184. kAETrue                            EQU        typeTrue
  185. kAEFalse                        EQU        typeFalse
  186. enumMiscValues                    EQU        'misc'                ;  0x6d697363  
  187. kASCurrentApplication            EQU        'cura'                ;  0x63757261  
  188. ; User-defined property ospecs: 
  189. formUserPropertyID                EQU        'usrp'
  190.  
  191. ; Global properties: 
  192. pASIt                            EQU        'it  '                ;  0x69742020  
  193. pASMe                            EQU        'me  '                ;  0x6d652020  
  194. pASResult                        EQU        'rslt'                ;  0x72736c74  
  195. pASSpace                        EQU        'spac'                ;  0x73706163  
  196. pASReturn                        EQU        'ret '                ;  0x72657420  
  197. pASTab                            EQU        'tab '                ;  0x74616220  
  198. pASPi                            EQU        'pi  '                ;  0x70692020  
  199. pASParent                        EQU        'pare'                ;  0x70617265  
  200. kASInitializeEventCode            EQU        'init'                ;  0x696e6974  
  201. pASPrintLength                    EQU        'prln'                ;  0x70726c6e  
  202. pASPrintDepth                    EQU        'prdp'                ;  0x70726470  
  203. pASTopLevelScript                EQU        'ascr'
  204.  
  205. ; Considerations 
  206. kAECase                            EQU        'case'                ;  0x63617365  
  207. kAEDiacritic                    EQU        'diac'                ;  0x64696163  
  208. kAEWhiteSpace                    EQU        'whit'                ;  0x77686974  
  209. kAEHyphens                        EQU        'hyph'                ;  0x68797068  
  210. kAEExpansion                    EQU        'expa'                ;  0x65787061  
  211. kAEPunctuation                    EQU        'punc'                ;  0x70756e63  
  212. kAEZenkakuHankaku                EQU        'zkhk'                ;  0x7a6b686b  
  213. kAESmallKana                    EQU        'skna'                ;  0x736b6e61  
  214. kAEKataHiragana                    EQU        'hika'                ;  0x68696b61  
  215. ; AppleScript considerations: 
  216. kASConsiderReplies                EQU        'rmte'                ;  0x726d7465  
  217. enumConsiderations                EQU        'cons'
  218.  
  219. cCoercion                        EQU        'coec'                ;  0x636f6563  
  220. cCoerceUpperCase                EQU        'txup'                ;  0x74787570  
  221. cCoerceLowerCase                EQU        'txlo'                ;  0x74786c6f  
  222. cCoerceRemoveDiacriticals        EQU        'txdc'                ;  0x74786463  
  223. cCoerceRemovePunctuation        EQU        'txpc'                ;  0x74787063  
  224. cCoerceRemoveHyphens            EQU        'txhy'                ;  0x74786879  
  225. cCoerceOneByteToTwoByte            EQU        'txex'                ;  0x74786578  
  226. cCoerceRemoveWhiteSpace            EQU        'txws'                ;  0x74787773  
  227. cCoerceSmallKana                EQU        'txsk'                ;  0x7478736b  
  228. cCoerceZenkakuhankaku            EQU        'txze'                ;  0x74787a65  
  229. cCoerceKataHiragana                EQU        'txkh'                ;  0x74786b68  
  230. ; Lorax things: 
  231. cZone                            EQU        'zone'                ;  0x7a6f6e65  
  232. cMachine                        EQU        'mach'                ;  0x6d616368  
  233. cAddress                        EQU        'addr'                ;  0x61646472  
  234. cRunningAddress                    EQU        'radd'                ;  0x72616464  
  235. cStorage                        EQU        'stor'
  236.  
  237. ; DateTime things: 
  238. pASWeekday                        EQU        'wkdy'                ;  0x776b6479  
  239. pASMonth                        EQU        'mnth'                ;  0x6d6e7468  
  240. pASDay                            EQU        'day '                ;  0x64617920  
  241. pASYear                            EQU        'year'                ;  0x79656172  
  242. pASTime                            EQU        'time'                ;  0x74696d65  
  243. pASDateString                    EQU        'dstr'                ;  0x64737472  
  244. pASTimeString                    EQU        'tstr'                ;  0x74737472  
  245. ; Months 
  246. cMonth                            EQU        pASMonth
  247. cJanuary                        EQU        'jan '                ;  0x6a616e20  
  248. cFebruary                        EQU        'feb '                ;  0x66656220  
  249. cMarch                            EQU        'mar '                ;  0x6d617220  
  250. cApril                            EQU        'apr '                ;  0x61707220  
  251. cMay                            EQU        'may '                ;  0x6d617920  
  252. cJune                            EQU        'jun '                ;  0x6a756e20  
  253. cJuly                            EQU        'jul '                ;  0x6a756c20  
  254. cAugust                            EQU        'aug '                ;  0x61756720  
  255. cSeptember                        EQU        'sep '                ;  0x73657020  
  256. cOctober                        EQU        'oct '                ;  0x6f637420  
  257. cNovember                        EQU        'nov '                ;  0x6e6f7620  
  258. cDecember                        EQU        'dec '
  259.  
  260. ; Weekdays 
  261. cWeekday                        EQU        pASWeekday
  262. cSunday                            EQU        'sun '                ;  0x73756e20  
  263. cMonday                            EQU        'mon '                ;  0x6d6f6e20  
  264. cTuesday                        EQU        'tue '                ;  0x74756520  
  265. cWednesday                        EQU        'wed '                ;  0x77656420  
  266. cThursday                        EQU        'thu '                ;  0x74687520  
  267. cFriday                            EQU        'fri '                ;  0x66726920  
  268. cSaturday                        EQU        'sat '                ;  0x73617420  
  269. ; AS 1.1 Globals: 
  270. pASQuote                        EQU        'quot'                ;  0x71756f74  
  271. pASSeconds                        EQU        'secs'                ;  0x73656373  
  272. pASMinutes                        EQU        'min '                ;  0x6d696e20  
  273. pASHours                        EQU        'hour'                ;  0x686f7572  
  274. pASDays                            EQU        'days'                ;  0x64617973  
  275. pASWeeks                        EQU        'week'                ;  0x7765656b  
  276. ; Writing Code things: 
  277. cWritingCodeInfo                EQU        'citl'                ;  0x6369746c  
  278. pScriptCode                        EQU        'pscd'                ;  0x70736364  
  279. pLangCode                        EQU        'plcd'                ;  0x706c6364  
  280. ; Magic Tell and End Tell events for logging: 
  281. kASMagicTellEvent                EQU        'tell'                ;  0x74656c6c  
  282. kASMagicEndTellEvent            EQU        'tend'
  283.  
  284.     ENDIF ; __ASREGISTRY__
  285.